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-- file SymbolCache.mesa 

-- last edited by Sandman, May 12, 1978 4:46 PM 

DIRECTORY 

AllocDefs: FROM "allocdefs" USING [ 

AddSwapStrategy, CantSwap, RemoveSwapStrategy , SwappingProcedure, 

SwapStrategy], 
AltoDefs: FROM "altodefs" USING [PageSize], 
SegmentDefs: FROM "segmentdef s" USING [ 

FileSegmentAddress, FileSegmentHandle, Insuff icientVM, InvalidFP, Swapln, 

SwapOut, Unlock], 
SymbolTable: FROM "symboltable" USING [ 

bb, cachelnfo, ctxb, extb, fgTable, haslWec, ht, link, ltb, mdb, notifier, 

NullNotif ier, seb, sourceFile, ssb, stHandle, tb], 
SymbolTableDefs: FROM "symbol tabledefs" USING [ 

Symbol Tab! eBase, Symbol Tab! eHan die], 
SymDefs: FROM "symdefs" USING [fgHeader, HTIndex, HTRecord, STHeader], 
SystemDefs: FROM "systemdefs" USING [Al locateHeapNode] , 
TableDefs: FROM "tabledefs" USING [TableBase]; 

DEFINITIONS FROM SymbolTableDefs; 

SymbolCache: PROGRAM 

IMPORTS AllocDefs, initial: SymbolTable, SegmentDefs, SystemDefs 
EXPORTS SymbolTableDefs SHARES SymbolTableDefs - 
BEGIN 
OPEN SegmentDefs; 

-- public interface 

NoSymbolTable: PUBLIC SIGNAL [FileSegmentHandle] = CODE; 

TableForSegment: PUBLIC PROCEDURE [seg: FileSegmentHandle] RETURNS [SymbolTableHandle] - 
BEGIN 

IF seg - NIL THEN ERROR NoSymbolTable[seg] ; 
RETURN [SymbolTableHandle[seg]] 
END; 

SegmentForTable: PUBLIC PROCEDURE [table: SymbolTableHandle] RETURNS [FileSegmentHandle] 
BEGIN 

RETURN [table. segment] 
END; 

IllegalSymbolBase: PUBLIC SIGNAL [base: SymbolTableBase] = CODE; 

AcquireSymbolTable: PUBLIC PROCEDURE [handle: SymbolTableHandle] 
RETURNS [base: SymbolTableBase] - 
BEGIN 

stlink: CachePointer ; 
IF freeTables - NIL THEN 

BEGIN 

base <- NEW initial ; 

START base 

END 
ELSE 

BEGIN base <- freeTables; freeTables <- freeTables . 1 ink END; 
stlink «- MakeCacheEntry[handle]; 
InstallTable[base, stlink]; 
base. link <- inuseTables; 
inuseTables <- base; 
RETURN 
END; 

ReleaseSymbolTable: PUBLIC PROCEDURE [base: SymbolTableBase] - 
BEGIN 

stlink: CachePointer <- header; 
tableCache: CachePointer ■ base. cachelnfo; 
prev, table: SymbolTableBase <- NIL; 
DO 

IF stlink ■ tableCache THEN EXIT; 

stl ink <- stl ink .next; 

IF stlink - header THEN ERROR II legalSymbo!Base[base] ; 

ENDLOOP; 
FOR table <- inuseTables, table. link UNTIL table « NIL DO 

IF table - base THEN 
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BEGIN 

IF prev » NIL THEN prev.link <- table. link 
ELSE inuseTables «- table. link; 
EXIT 
END; 
prev <- table; 
REPEAT 

FINISHED -> ERROR 111 ega!SymbolBase[base] ; 
ENDLOOP; 
FreeCacheEntry[tableCache]; 
base. link <~ freeTables; 
freeTables ♦- base; 
RETURN 
END; 

inuseTables: SymbolTableBase <- NIL; 
freeTables: SymbolTableBase +• initial; 

cachepagelimit: CARDINAL <- 0; 

SymbolCacheSize: PUBLIC PROCEDURE RETURNS [pages: CARDINAL] 
BEGIN 

RETURN[cachepagel imit] 
END; 

SetSymbolCacheSize: PUBLIC PROCEDURE [pages: CARDINAL] - 
BEGIN 

cachepagelimit «- pages; 
trimcache[cachepagel imit] ; 
RETURN 
END; 

suspended: BOOLEAN; 

SuspendSymbolCache: PUBLIC PROCEDURE - 
BEGIN 

node: CachePointer ; 
trimcache[0]; 
suspended «- TRUE; 
FOR node «- header. next, node. next UNTIL node ■ free 

DO Unlock[node. table]; SwapOut[ node, table] ENDLOOP; 
RETURN 
END; 

RestartSymbolCache: PUBLIC PROCEDURE * 
BEGIN 

node, tablelnfo: CachePointer; 
base: SymbolTableBase; 
IF -suspended THEN ERROR; 
FOR node <- header. next, node. next UNTIL node ■ free 

DO 

SwapIn[node. table] ; 

node, symheader <- FileSegmentAddress[node. table]; 

ENDLOOP; 
FOR base <- inuseTables, base. link UNTIL base ■ NIL DO 

tablelnfo <- base.cachelnfo; 

SetBases[base, tablelnfo]; 

base.notifier[base]; 

ENDLOOP; 
suspended <- FALSE; 
RETURN 
END; 



- internal cache management 

CacheNode: TYPE - RECORD[ 
prev, next: CachePointer, 
table: Symbol TableHandle, 
symheader: POINTER, 
refcount: CARDINAL]; 

CachePointer: TYPE * POINTER TO CacheNode; 

header, free, flushed: CachePointer; 
CacheNodes: CARDINAL - 7; 
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cachedpages: CARDINAL; 
IncompatibleSymbolTable: ERROR ■ CODE; 

CACHE ORGANIZATION 

-- The cache keeps track of segments in CacheNodes, The CacheNodes are 
-- kept in a doubly-linked list and organized in three groups, separated 
-- by three pointers: header, free, and flushed. Assuming a clockwise 
-- ordering, the list is organized as follows: 

header -> last empty node, 

free -> first node with segment but no frame, 

flushed -> first empty node, 

flushed ■ free => no nodes with segment but no frame, 

header. next ■ free a > no nodes with frame, 

header a flushed ■> no available empty nodes 

-- Initial conditions are header. next ■ free ■ flushed 

MakeCacheEntry: PROCEDURE [handle: SymbolTableHandle] 
RETURNS [node: CachePointer] - 
BEGIN 

FOR node «- header. next, node. next UNTIL node ■ free DO 
IF node. table = handle THEN GO TO allocated; 
REPEAT 

allocated *> NULL; 
FINISHED »> 
BEGIN 

FOR node <- free, node. next UNTIL node = flushed DO 
IF node. table ■ handle THEN GO TO unflushed; 
REPEAT 

unflushed *> 
BEGIN 

movenode[node, free]; 
IF flushed - free THEN 

Al locDef s.RemoveSwapStrategy[@f lushstrategy]; 
END; 
FINISHED => 
BEGIN 

node <- GetEmptyNode[]; 
Swapln[handle ! 

InvalidFP => ERROR NoSymbolTable[handle]; 
Insufficient -> IF free # flushed THEN 
BEGIN FlushATable[]; RESUME END]; 
cachedpages <- cachedpages + handle. pages; 
node. table <- handle; 

node . symheader «- FileSegmentAddress[handle]; 
movenode[node, free]; 
END; 
ENDLOOP; 
movenode[node, free]; 
END; 
ENDLOOP; 
node, refcount «- node . refcount+1 ; RETURN 
END; 

FreeCacheEntry: PROCEDURE [node: CachePointer] « 
BEGIN 

np: CARDINAL; 
slot: CachePointer; 

SELECT (node. refcount *- node, ref count-1) FROM 
= -> 
BEGIN 

slot «- free; np «- node. table. pages; 
IF 3*np > cachepagelimit THEN 

UNTIL slot * flushed OR slot . table. pages > np DO 
slot <- slot. next; 
ENDLOOP; 
IF flushed ■ free THEN Al locDefs .AddSwapStrategy[0f lushstrategy] ; 
movenode[node, slot]; 
IF slot K free THEN free ♦- node; 
trimcache[cachepagel imit]; 
END; 
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>0 «> NULL; 

ENDCASE -> ERROR; 
RETURN 
END; 

GetEmptyNode: PROCEDURE RETURNS [node: CachePointer] « 
BEGIN 
IF flushed # header THEN 

BEGIN node <- header; header +■ header. prev; END 
ELSE 

BEGIN 

node «- SystemDefs.AllocateHeapNode[SIZE[CacheNode]]; 

nodet «- CacheNode[NIL, NIL, [NIL], NIL, 0]; 

node. prev *- header; 

header. next. prev <- node; 

node. next ♦- header. next; 

header. next <- node; 

END; 
RETURN 
END; 

FlushATable: PROCEDURE ■ 
BEGIN 

IF free = flushed THEN RETURN; 

Un lock[f 1 us hed. prev. table]; SwapOut[f lushed. pre v. table] ; 
cachedpages <- cachedpages - flushed, prev. table. pages; 
flushed <- flushed, prev; 

IF flushed ■ free THEN Al locDef s . RemoveSwapStrategy[@f lushstrategy] ; 
RETURN 
END; 

GetFlushedNode: PROCEDURE RETURNS [CachePointer] » 
BEGIN 
UNTIL flushed # header DO 

IF free # flushed THEN FlushATable[] ELSE ERROR; 

ENDLOOP; 
RETURN [flushed] 
END; 

movenode: PROCEDURE [node, position: CachePointer] ■ 
BEGIN 

IF node a free THEN free «- free. next; 
IF node - flushed THEN flushed <- flushed. next; 
IF node # position AND node. next # position THEN 

BEGIN 

node. prev .next «- node. next; node. next. prev <- node. prev; 

node. prev <- position. prev; node. prev .next <- node; 

node. next *■ position; position. prev «- node; 

END; 
RETURN 
END; 

trimcache: PROCEDURE [size: CARDINAL] ■ 
BEGIN 

WHILE cachedpages > size AND free # flushed DO FlushATable[] ENDLOOP; 
RETURN 
END; 

f lushstrategy : AllocDef s .SwapStrategy «- [link:, proc: f lushtables]; 

flushtables: AllocDef s .SwappingProcedure » 
BEGIN 

changed: BOOLEAN *• (free # flushed); 
f lushstrategy . proc <- AllocDef s .CantSwap ; 

trimcache[IF needed > s cachedpages THEN ELSE cachedpages - needed]; 
f lushstrategy . proc <- flushtables; 
RETURN [changed] 
END; 



-- symbol table setup 

Installable: PROCEDURE [base: SymbolTableBase, node: CachePointer] 
BEGIN 

SetBases[base, node]; base . notif ier <- base.NullNotif ier; RETURN 
END; 
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SetBases: PROCEDURE [base: SymbolTableBase, node: CachePointer] ■ 
BEGIN 

b: POINTER ■ node. symheader ; 
tB: TableDefs.TableBase - LOOPHOLE[b]; 
p: POINTER TO SymDef s .STHeader - node. symheader; 
q: POINTER TO SymDef s . fgHeader; 
base.cachelnfo «- node; 
base.hashVec <- 

DESCRIPTOR[b+p.hvBlock.offset, p.hvBlock. size/SIZE[SymDef s.HTIndex]]; 
base.ht «- 

DESCRIPTOR[b+p.htBlock.offset, p . htBlock. size/SIZE[SymDef s .HTRecord]]; 
base.ssb <- b + p.ssBlock.of fset; 
base.seb <- tB + p. seBlock. offset; 
base.ctxb <- tB + p .ctxBlock. offset; 
base.mdb <- tB + p. mdBlock. offset; 
base.bb «- tB + p .bodyBlock. offset; 
base.tb <- tB + p . treeBlock.off set; 
base.ltb <- tB + p. "I itBlock. off set; 
base.extb <~ tB + p .extBlock .off set; 
base. stHandle ♦■ p; 

IF p.fgRelPgBase * THEN base. sourceFile <- NIL 
ELSE 

BEGIN 

q <- b + p.fgRe1PgBase*AUoDefs.PageSize; 

base. sourceFile <- LOOPHOLE[@q. sourcef ile]; 

base.fgTable <- DESCRIPTOR[ 

b + p.fgRe1PgBase*AltoDefs.PageSize + q.fgoffset, q.fglength]; 

END; 
RETURN 
END; 

-- initialization 

CacheEntries: ARRAY [0 . .CacheNodes] OF CacheNode; 

Init: PROCEDURE » 
BEGIN 

j: INTEGER [0 .. CacheNodes] ; 
START initial ; 
FOR j IN [0. .CacheNodes] DO 

CacheEntr ies[ j] .ref count *• 0; 

CacheEntries[j].next <- ©CacheEntries[IF j=CacheNodes THEN ELSE j+1]; 

CacheEntries[j].prev <~ @CacheEntries[IF j=0 THEN CacheNodes ELSE j-1]; 

ENDLOOP; 
header ♦- @CacheEntries[0]; 
initial . 1 ink «- NIL; 

free «- flushed <- header. next; cachedpages <- 0; 
suspended «- FALSE; 
END; 

Init[]; 

END.. 



